PROC format:
	local ret%,fh%,c%,i%,v%
	ret%=ioopen(fh%,"LOC::B:\Name.nam",$40)
	if ret%<0 :goto exit :endif
	ret%=iow(fh%,1,c%,#0)
	if ret%<0 :goto cleanup :endif
	print "Total format count",c%
	get
	while 1
		ret%=iow(fh%,1,v%,#0)
		if ret%<0 :break :endif
		i%=i%+1
		print "Format count",i%
	endwh
	if ret%=-36 :rem successful completion
		ret%=0
	endif
cleanup::
	ioclose(fh%)
exit::
	if ret%<0
		print "Format failed"
		print err$(ret%)
	else
		print "Format succeeded"
	endif
	get
ENDP